home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / castools.zip / FUNC14H.ASM < prev    next >
Assembly Source File  |  1990-01-05  |  2KB  |  46 lines
  1. Include multi.inc
  2. Include model.inc
  3.  
  4. ;==============================================================================
  5. ;
  6. ;   CAS function 14h -- Move Received File
  7. ;
  8. ;   Format:
  9. ;               int CASMoveReceivedFile (int handle, int file, char *filespec);
  10. ;   Input:
  11. ;               handle of event, received file number, path and filename
  12. ;   Output:
  13. ;               Returns 0 if successful or negative error code
  14. ;==============================================================================
  15.  
  16.                 .CODE
  17. CASMoveReceivedFile     PROC    arg1:WORD, arg2:WORD, arg3:PTR WORD
  18.  
  19.                 push    bx              ; save registers
  20.                 push    cx
  21.                 push    dx
  22.                 push    ds
  23.  
  24.                 mov     ax,MUX          ; load multiplex number
  25.                 mov     ah,al           ; move into ah
  26.                 mov     al,14h          ; CAS function 14
  27.                 mov     bx,arg1         ; load event handle
  28.                 mov     cx,arg2         ; load received file number
  29.         IF      @DataSize               ; large and medium models
  30.                 lds     dx,arg3         ; pointer to path and filename
  31.         ELSE
  32.                 mov     dx,arg3         ; pointer to path and filename
  33.         ENDIF
  34.                 int     2Fh
  35.  
  36.                 pop     ds              ; restore registers
  37.                 pop     dx
  38.                 pop     cx
  39.                 pop     bx
  40.                 ret
  41. CASMoveReceivedFile     endp
  42.  
  43.                 END
  44.  
  45.  
  46.